home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Purity / Purity #23 (1994-02-10)(Diesel)(DE)[WB].zip / Purity #23 (1994-02-10)(Diesel)(DE)[WB].adf / OS_2_Beispiele / OS_Kurs.p < prev    next >
Text File  |  1994-01-20  |  1KB  |  48 lines
  1. PROGRAM OS_Zwei_Beispiel;
  2.  
  3. { Beispiel zum Öffnen von Fenstern. }
  4. { ©1993 by Björn Schotte - FREEWARE }
  5.  
  6. USES Intuition, Graphics;
  7.  
  8. VAR
  9.   wp  : p_Window;
  10.   t   : ARRAY[1..10] OF TagItem;
  11.   msg : p_IntuiMessage;
  12.   it  : IntuiText;
  13.  
  14. BEGIN
  15.   { Strukturen ausfüllen: }
  16.  
  17.   { So ähnlich wie bei NewWindow, nur daß man hier einige
  18.     Variablen (LeftEdge etc.) weglassen kann, da diese
  19.     dann auf einen Default-Wert gesetzt werden...         }
  20.   t[1] := TagItem(WA_Width, 300);
  21.   t[2] := TagItem(WA_Height, 150);
  22.   t[3] := TagItem(WA_Flags,WFLG_ACTIVATE+WFLG_CLOSEGADGET+
  23.                   WFLG_DEPTHGADGET+WFLG_DRAGBAR);
  24.   t[4] := TagItem(WA_IDCMP,IDCMP_CLOSEWINDOW);
  25.   t[5].ti_Tag := WA_Title;
  26.   t[5].ti_Data:= "Beispielprogramm zu OS2-Fenstern ©14.12.1993 by BOMBERSOFT";
  27.   t[6].ti_Tag := TAG_END; { Abschluss der Liste kennzeichnen }
  28.   wp := OpenWindowTagList(NIL,^t);
  29.   IF wp<>NIL THEN
  30.   BEGIN
  31.     it := IntuiText(1,0,JAM2,0,0,NIL,"Bitte aufs CLOSEGADGET drücken !!",NIL);
  32.     PrintIText(wp^.RPort,^it,10,40);
  33.     msg := p_IntuiMessage(WaitPort(wp^.UserPort));
  34.     msg := p_IntuiMessage(GetMsg(wp^.UserPort));
  35.     ReplyMsg(p_Message(msg));
  36.     CloseWindow(wp);
  37.     Writeln("All done. Hope you had some fun with it !!");
  38.   END ELSE Error("Kann kein Fenster öffnen !!");
  39. END.
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.